10 GRAPHICS 10›20 REM LOAD COLOR REGISTERS›30 POKE 704,0:POKE 705,82›40 POKE 706,116:POKE 707,196›50 POKE 708,54:POKE 709,68›60 POKE 710,24:POKE 711,102›70 POKE 712,34›80 FOR K=0 TO 19›90 FOR I=0 TO 8›100 COLOR I›110 PLOT 10+K,(40-K*2)+I*10›120 DRAWTO 10+K,(50-K*2)+I*10›130 NEXT I:NEXT K›150 FOR K=0 TO 29›160 FOR I=0 TO 8›170 COLOR I›180 PLOT 30+K,(K*2)+I*10›190 DRAWTO 30+K,(10+K*2)+1*10›200 NEXT I:NEXT K›210 FOR K=0 TO 19›220 FOR I=1 TO 8›230 COLOR I›240 PLOT 60-K,(60+K*2)+I*10›250 DRAWTO 60-K,(70+K*2)+I*10›260 NEXT I:NEXT K›270 FOR K=0 TO 19›280 FOR I=1 TO 8›290 COLOR I›300 PLOT 40-K,(100-K*2)+I*10›310 DRAWTO 40-K,(110-K*2)+I*10›320 NEXT I:NEXT K›325 FOR DE=1 TO 200:NEXT DE›330 POKE 713,PEEK(705)›340 FOR I=0 TO 7›350 POKE 705+I,PEEK(706+I)›360 NEXT I›370 FOR DE=1 TO 15:NEXT DE›380 GOTO 330›